home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
fwho_100.zip
/
FINDWHO.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1993-06-20
|
3KB
|
217 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
String STRING001
String STRING002
String STRING003
String STRING004
String STRING005
String STRING006
;------------------------------------------------------------------------------
INTEGER001 = 0
INTEGER002 = 0
INTEGER003 = 0
INTEGER004 = 0
INTEGER007 = 0
STRING006 = TokenStr()
If (STRING006 == "") Then
DispFile PPEPath() + "WELCOME", 2 + 1 + 4
Else
STRING006 = Replace(STRING006, ";", " ")
Endif
RdUNet PcbNode()
WrUNet PcbNode(), UN_Stat(), UN_Name(), UN_City(), "Running " + PPEName(), ""
STRING004 = PCBDat()
If (Exist(STRING004)) Goto LABEL001
Log "WARNING! - Can't find " + STRING004, 0
PrintLn "WARNING - Can't find PCBOARD.DAT"
End
:LABEL001
STRING002 = ReadLine(STRING004, 1)
If (STRING002 <> "*** PCBoard Version 14.5 & 15.0 data file ***") Then
Log "WARNING! - Wrong version of PCBOARD.DAT", 0
PrintLn "WARNING! - Wrong version of PCBOARD.DAT"
End
Endif
STRING002 = ReadLine(STRING004, 46)
If (Exist(STRING002)) Goto LABEL002
Log "WARNING! - Can't find " + STRING002, 0
PrintLn "WARNING! - Can't find DOWNLOAD.TXT"
End
:LABEL002
STRING004 = STRING002
FOpen 1, STRING004, 0, 0
FGet 1, STRING002
STRING003 = STRING002
STRING003 = Replace(STRING003, ",", ";")
Tokenize STRING003
For INTEGER005 = 1 To 4
STRING003 = GetToken()
Next
STRING005 = STRING003
PrintLn " "
PrintLn "Data is available since ", STRING005
PrintLn " "
If (STRING006 == "") Then
PromptStr 70, STRING001, 20, Mask_Ascii(), 2 + 64
Else
STRING001 = STRING006
Endif
INTEGER006 = Len(STRING001)
If (INTEGER006 == 0) Then
End
Endif
Log "FINDWHO search for " + Upper(STRING001), 0
INTEGER005 = 0
StartDisp 2
:LABEL003
If (Ferr(1)) Goto LABEL004
INTEGER007 = InStr(Upper(STRING002), Upper(STRING001))
If (INTEGER007 <> 0) Then
Backup 79
Print Left(STRING002, INTEGER007 - 1)
Color 71
Print Mid(STRING002, INTEGER007, INTEGER006)
Color DefColor()
PrintLn Right(STRING002, Len(STRING002) - INTEGER007 + INTEGER006 - 1)
Inc INTEGER002
If (Mid(STRING002, 2, 1) == "U") Then
Inc INTEGER003
Else
Inc INTEGER004
Endif
INTEGER005 = 0
Else
Inc INTEGER005
Endif
Inc INTEGER001
If (Abort() == 1) Then
Goto LABEL004
Endif
If (INTEGER005 == 50) Then
Print "."
INTEGER005 = 0
Endif
FGet 1, STRING002
Goto LABEL003
:LABEL004
ResetDisp
PrintLn " "
PrintLn " Total Records Checked: ", INTEGER001
PrintLn " Total Mataches Found: ", INTEGER002
PrintLn " Total Upload Transfers: ", INTEGER003
PrintLn " Total Download Transfers: ", INTEGER004
FClose 1
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 5 End
; 2 Color
; 19 Goto
; 23 Let
; 3 Print
; 12 PrintLn
; 12 If
; 1 DispFile
; 1 FOpen
; 1 FClose
; 2 FGet
; 1 ResetDisp
; 1 StartDisp
; 4 Log
; 1 PromptStr
; 5 Inc
; 1 Tokenize
; 1 RdUNet
; 1 WrUNet
; 1 Backup
;
;
; ■ Functions used :
;
; 10 +
; 3 -
; 6 ==
; 2 <>
; 1 <
; 1 <=
; 2 >=
; 12 !
; 2 &&
; 1 ||
; 2 Len(
; 3 Upper()
; 2 Mid()
; 1 Left()
; 1 Right()
; 1 Ferr()
; 1 InStr()
; 1 Abort()
; 2 Replace()
; 1 Mask_Ascii()
; 1 PCBDat()
; 1 PPEPath()
; 2 PcbNode()
; 2 ReadLine()
; 1 UN_Stat()
; 1 UN_Name()
; 1 UN_City()
; 1 GetToken()
; 2 Exist()
; 1 TokenStr()
; 1 DefColor()
; 1 PPEName()
;
;------------------------------------------------------------------------------
;
; Analysis flags : d
;
; d - Access PCBOARD.DAT ■ 2
; Program gets the full pathname to PCBOARD.DAT, this may be usefull
; for many PPE so they can find various informations on the system
; (system paths, max number of lines in messages, ...) but it may also
; be a way to gather vital informations.
; ■ Search for : PCBDAT()
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 8 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------